home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 24 / MacFormat n. 24 (Spain) / MacFormat 24.bin / Demos / Jungle Activated! / JungleActivated Demo / jung DEMO d / 00197.ls < prev    next >
Encoding:
Text File  |  1996-10-14  |  1.0 KB  |  38 lines
  1. on enterFrame
  2.   global gBackgroundSound, gBackgroundVolume, gFragment1, gFragment2, gFragment3, gFragment4, gFragmentCast
  3.   repeat with i = 1 to 48
  4.     puppetSprite(i, 0)
  5.   end repeat
  6.   updateStage()
  7.   set gFragmentCast to the number of cast "Fragment 1"
  8.   puppetSprite(13, 1)
  9.   puppetSprite(14, 1)
  10.   puppetSprite(15, 1)
  11.   puppetSprite(16, 1)
  12.   if gFragment1 = 1 then
  13.     set the castNum of sprite 13 to gFragmentCast
  14.     set the ink of sprite 13 to 39
  15.   end if
  16.   if gFragment2 = 1 then
  17.     set the castNum of sprite 14 to gFragmentCast + 1
  18.     set the ink of sprite 14 to 39
  19.   end if
  20.   if gFragment3 = 1 then
  21.     set the castNum of sprite 15 to gFragmentCast + 2
  22.     set the ink of sprite 15 to 39
  23.   end if
  24.   if gFragment4 = 1 then
  25.     set the castNum of sprite 16 to gFragmentCast + 3
  26.     set the ink of sprite 16 to 39
  27.   end if
  28.   updateStage()
  29.   set the volume of sound 2 to gBackgroundVolume
  30.   if soundBusy(2) = 0 then
  31.     sound playFile 2, getpn() & "Sounds:Bckgrd" & gBackgroundSound & ".aif"
  32.   end if
  33. end
  34.  
  35. on exitFrame
  36.   go(marker(0) + 2)
  37. end
  38.